home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso / commercial / inovatronics / edgedemo / edgeeditor / rexx / menu_editdefmac.edge < prev    next >
Text File  |  1994-11-17  |  663b  |  34 lines
  1. /*
  2. ** $VER: Menu_EditDefMac.edge 1.0 (Friday 22-Oct-93 12:55:22)
  3. **
  4. ** Open a editor window and load the default macro into it
  5. **
  6. ** Written by Thomas liljetoft & Inovatronics
  7. */
  8.  
  9. options results
  10.  
  11. /* check to see if it exists */
  12. if exists('ram:edge.macro') then do
  13.     
  14.     /* is the current window empty? */
  15.     getenvvar _fe_size
  16.     if result>0 then do
  17.     
  18.         /* open a new window */
  19.         new
  20.         if rc==0 then do
  21.             
  22.             /* if it opened, talk to it and tell it to load the default macro */
  23.             address value result
  24.             open """ram:edge.macro"""
  25.         end
  26.     end
  27.     else do
  28.         open """ram:edge.macro"""
  29.     end
  30. end
  31.  
  32. /* if not then complain */
  33. else requestnotify """There is no default macro."""
  34.